home *** CD-ROM | disk | FTP | other *** search
/ The Uninvited Press Kit / THE UNINVITED.iso / pc / program.dxr / Internal_16_SaveExit_Button.ls < prev    next >
Encoding:
Text File  |  2008-12-30  |  554 b   |  33 lines
  1. global gphotolist
  2.  
  3. on mouseWithin
  4.   cursor(280)
  5.   if gphotolist = [] then
  6.     sprite(98).member = member("But_Exit")
  7.   else
  8.     sprite(98).member = member("But_SvEx2")
  9.   end if
  10. end
  11.  
  12. on mouseLeave me
  13.   cursor(0)
  14.   if gphotolist = [] then
  15.     sprite(98).member = member("But_Exit")
  16.   else
  17.     sprite(98).member = member("But_SvEx2")
  18.   end if
  19. end
  20.  
  21. on mouseDown me
  22.   sound(1).play(member("Click"))
  23. end
  24.  
  25. on mouseUp me
  26.   if gphotolist = [] then
  27.     go("Fade Out")
  28.   else
  29.     member("Endscreenshot").image = (the stage).image
  30.     go("Meg Counter")
  31.   end if
  32. end
  33.